perm filename MULT.FAI[RST,LCS] blob sn#197641 filedate 1976-01-18 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		.INSERT	ASMBL.FAI
C00003 ENDMK
CāŠ—;
	.INSERT	ASMBL.FAI

	LOC 40

MSR:	0
MSL:	0
	0
Q:	0
	0

	LOC 1400

MLTPLY:	STAZ	MSL
	LDAI	0
	STAZ	MSL+1
	STAZ	Q
	STAZ	Q+1
	
XLOOP:	LSRZ	MSR
	BCC	NOAD

ADDIT:	LDAZ	Q
	CLC
	ADCZ	MSL
	STAZ	Q
	LDAZ	Q+1
	ADCZ	MSL+1
	STAZ	Q+1

SHIFL:	ASLZ	MSL
	ROLZ	MSL+1
	BCC	XLOOP

NOAD:	BNE	SHIFL
	RTS

END